home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / RM Weather26140982001.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-09-07  |  11.6 KB  |  347 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   2745
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5940
  10.    ScaleWidth      =   2745
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Get Weather"
  14.       Height          =   330
  15.       Left            =   1530
  16.       TabIndex        =   19
  17.       Top             =   5580
  18.       Width           =   1185
  19.    End
  20.    Begin VB.TextBox Text9 
  21.       Height          =   330
  22.       Left            =   45
  23.       TabIndex        =   18
  24.       Top             =   5580
  25.       Width           =   1455
  26.    End
  27.    Begin VB.Frame Frame1 
  28.       Caption         =   "Current Weather"
  29.       Height          =   5505
  30.       Left            =   45
  31.       TabIndex        =   0
  32.       Top             =   45
  33.       Width           =   2670
  34.       Begin VB.TextBox Text11 
  35.          BackColor       =   &H00000000&
  36.          ForeColor       =   &H0000FF00&
  37.          Height          =   285
  38.          Left            =   135
  39.          Locked          =   -1  'True
  40.          TabIndex        =   22
  41.          Top             =   4500
  42.          Width           =   2310
  43.       End
  44.       Begin VB.TextBox Text4 
  45.          BackColor       =   &H00000000&
  46.          ForeColor       =   &H0000FF00&
  47.          Height          =   285
  48.          Left            =   135
  49.          Locked          =   -1  'True
  50.          TabIndex        =   20
  51.          Top             =   5130
  52.          Width           =   2310
  53.       End
  54.       Begin VB.PictureBox Pic1 
  55.          Appearance      =   0  'Flat
  56.          AutoRedraw      =   -1  'True
  57.          AutoSize        =   -1  'True
  58.          BackColor       =   &H80000005&
  59.          ForeColor       =   &H80000008&
  60.          Height          =   780
  61.          Left            =   135
  62.          ScaleHeight     =   750
  63.          ScaleWidth      =   795
  64.          TabIndex        =   9
  65.          Top             =   855
  66.          Width           =   825
  67.       End
  68.       Begin VB.TextBox Text1 
  69.          BackColor       =   &H00000000&
  70.          ForeColor       =   &H0000FF00&
  71.          Height          =   285
  72.          Left            =   135
  73.          Locked          =   -1  'True
  74.          TabIndex        =   8
  75.          Top             =   2655
  76.          Width           =   2310
  77.       End
  78.       Begin VB.TextBox Text2 
  79.          BackColor       =   &H00000000&
  80.          ForeColor       =   &H0000FF00&
  81.          Height          =   285
  82.          Left            =   135
  83.          Locked          =   -1  'True
  84.          TabIndex        =   7
  85.          Top             =   3240
  86.          Width           =   2310
  87.       End
  88.       Begin VB.TextBox Text3 
  89.          BackColor       =   &H00000000&
  90.          ForeColor       =   &H0000FF00&
  91.          Height          =   285
  92.          Left            =   135
  93.          Locked          =   -1  'True
  94.          TabIndex        =   6
  95.          Top             =   3870
  96.          Width           =   1095
  97.       End
  98.       Begin VB.TextBox Text5 
  99.          BackColor       =   &H00000000&
  100.          ForeColor       =   &H0000FF00&
  101.          Height          =   285
  102.          Left            =   1350
  103.          Locked          =   -1  'True
  104.          TabIndex        =   5
  105.          Top             =   3870
  106.          Width           =   1095
  107.       End
  108.       Begin VB.TextBox Text6 
  109.          BackColor       =   &H00000000&
  110.          ForeColor       =   &H0000FF00&
  111.          Height          =   285
  112.          Left            =   1350
  113.          Locked          =   -1  'True
  114.          TabIndex        =   4
  115.          Top             =   2025
  116.          Width           =   1095
  117.       End
  118.       Begin VB.TextBox Text7 
  119.          BackColor       =   &H00000000&
  120.          ForeColor       =   &H0000FF00&
  121.          Height          =   285
  122.          Left            =   135
  123.          Locked          =   -1  'True
  124.          TabIndex        =   3
  125.          Top             =   2025
  126.          Width           =   1095
  127.       End
  128.       Begin VB.TextBox Text8 
  129.          BackColor       =   &H00000000&
  130.          ForeColor       =   &H0000FF00&
  131.          Height          =   285
  132.          Left            =   1035
  133.          Locked          =   -1  'True
  134.          TabIndex        =   2
  135.          Top             =   1260
  136.          Width           =   1410
  137.       End
  138.       Begin VB.TextBox Text10 
  139.          BackColor       =   &H00000000&
  140.          ForeColor       =   &H0000FF00&
  141.          Height          =   285
  142.          Left            =   135
  143.          Locked          =   -1  'True
  144.          TabIndex        =   1
  145.          Top             =   540
  146.          Width           =   2310
  147.       End
  148.       Begin VB.Label Label3 
  149.          AutoSize        =   -1  'True
  150.          BackStyle       =   0  'Transparent
  151.          Caption         =   "Visibility"
  152.          BeginProperty Font 
  153.             Name            =   "MS Sans Serif"
  154.             Size            =   12
  155.             Charset         =   0
  156.             Weight          =   400
  157.             Underline       =   0   'False
  158.             Italic          =   0   'False
  159.             Strikethrough   =   0   'False
  160.          EndProperty
  161.          Height          =   300
  162.          Left            =   135
  163.          TabIndex        =   23
  164.          Top             =   4185
  165.          Width           =   825
  166.       End
  167.       Begin VB.Label Label7 
  168.          AutoSize        =   -1  'True
  169.          BackStyle       =   0  'Transparent
  170.          Caption         =   "Barometer"
  171.          BeginProperty Font 
  172.             Name            =   "MS Sans Serif"
  173.             Size            =   12
  174.             Charset         =   0
  175.             Weight          =   400
  176.             Underline       =   0   'False
  177.             Italic          =   0   'False
  178.             Strikethrough   =   0   'False
  179.          EndProperty
  180.          Height          =   300
  181.          Left            =   135
  182.          TabIndex        =   21
  183.          Top             =   4815
  184.          Width           =   1125
  185.       End
  186.       Begin VB.Label Label4 
  187.          AutoSize        =   -1  'True
  188.          BackStyle       =   0  'Transparent
  189.          Caption         =   "UV Index"
  190.          BeginProperty Font 
  191.             Name            =   "MS Sans Serif"
  192.             Size            =   12
  193.             Charset         =   0
  194.             Weight          =   400
  195.             Underline       =   0   'False
  196.             Italic          =   0   'False
  197.             Strikethrough   =   0   'False
  198.          EndProperty
  199.          Height          =   300
  200.          Left            =   135
  201.          TabIndex        =   17
  202.          Top             =   2340
  203.          Width           =   990
  204.       End
  205.       Begin VB.Label Label5 
  206.          AutoSize        =   -1  'True
  207.          BackStyle       =   0  'Transparent
  208.          Caption         =   "Wind"
  209.          BeginProperty Font 
  210.             Name            =   "MS Sans Serif"
  211.             Size            =   12
  212.             Charset         =   0
  213.             Weight          =   400
  214.             Underline       =   0   'False
  215.             Italic          =   0   'False
  216.             Strikethrough   =   0   'False
  217.          EndProperty
  218.          Height          =   300
  219.          Left            =   135
  220.          TabIndex        =   16
  221.          Top             =   2970
  222.          Width           =   540
  223.       End
  224.       Begin VB.Label Label6 
  225.          AutoSize        =   -1  'True
  226.          BackStyle       =   0  'Transparent
  227.          Caption         =   "Humidity"
  228.          BeginProperty Font 
  229.             Name            =   "MS Sans Serif"
  230.             Size            =   12
  231.             Charset         =   0
  232.             Weight          =   400
  233.             Underline       =   0   'False
  234.             Italic          =   0   'False
  235.             Strikethrough   =   0   'False
  236.          EndProperty
  237.          Height          =   300
  238.          Left            =   135
  239.          TabIndex        =   15
  240.          Top             =   3555
  241.          Width           =   915
  242.       End
  243.       Begin VB.Label Label8 
  244.          AutoSize        =   -1  'True
  245.          BackStyle       =   0  'Transparent
  246.          Caption         =   "Dew Point"
  247.          BeginProperty Font 
  248.             Name            =   "MS Sans Serif"
  249.             Size            =   12
  250.             Charset         =   0
  251.             Weight          =   400
  252.             Underline       =   0   'False
  253.             Italic          =   0   'False
  254.             Strikethrough   =   0   'False
  255.          EndProperty
  256.          Height          =   300
  257.          Left            =   1350
  258.          TabIndex        =   14
  259.          Top             =   3555
  260.          Width           =   1080
  261.       End
  262.       Begin VB.Label Label9 
  263.          AutoSize        =   -1  'True
  264.          BackStyle       =   0  'Transparent
  265.          Caption         =   "Feels Like"
  266.          BeginProperty Font 
  267.             Name            =   "MS Sans Serif"
  268.             Size            =   12
  269.             Charset         =   0
  270.             Weight          =   400
  271.             Underline       =   0   'False
  272.             Italic          =   0   'False
  273.             Strikethrough   =   0   'False
  274.          EndProperty
  275.          Height          =   300
  276.          Left            =   1350
  277.          TabIndex        =   13
  278.          Top             =   1710
  279.          Width           =   1080
  280.       End
  281.       Begin VB.Label Label10 
  282.          AutoSize        =   -1  'True
  283.          BackStyle       =   0  'Transparent
  284.          Caption         =   "Temp"
  285.          BeginProperty Font 
  286.             Name            =   "MS Sans Serif"
  287.             Size            =   12
  288.             Charset         =   0
  289.             Weight          =   400
  290.             Underline       =   0   'False
  291.             Italic          =   0   'False
  292.             Strikethrough   =   0   'False
  293.          EndProperty
  294.          Height          =   300
  295.          Left            =   135
  296.          TabIndex        =   12
  297.          Top             =   1710
  298.          Width           =   600
  299.       End
  300.       Begin VB.Label Label1 
  301.          AutoSize        =   -1  'True
  302.          BackStyle       =   0  'Transparent
  303.          Caption         =   "Forecast"
  304.          BeginProperty Font 
  305.             Name            =   "MS Sans Serif"
  306.             Size            =   12
  307.             Charset         =   0
  308.             Weight          =   400
  309.             Underline       =   0   'False
  310.             Italic          =   0   'False
  311.             Strikethrough   =   0   'False
  312.          EndProperty
  313.          Height          =   300
  314.          Left            =   1035
  315.          TabIndex        =   11
  316.          Top             =   945
  317.          Width           =   945
  318.       End
  319.       Begin VB.Label Label2 
  320.          AutoSize        =   -1  'True
  321.          BackStyle       =   0  'Transparent
  322.          Caption         =   "City"
  323.          BeginProperty Font 
  324.             Name            =   "MS Sans Serif"
  325.             Size            =   12
  326.             Charset         =   0
  327.             Weight          =   400
  328.             Underline       =   0   'False
  329.             Italic          =   0   'False
  330.             Strikethrough   =   0   'False
  331.          EndProperty
  332.          Height          =   300
  333.          Left            =   135
  334.          TabIndex        =   10
  335.          Top             =   225
  336.          Width           =   390
  337.       End
  338.    End
  339. Attribute VB_Name = "Form1"
  340. Attribute VB_GlobalNameSpace = False
  341. Attribute VB_Creatable = False
  342. Attribute VB_PredeclaredId = True
  343. Attribute VB_Exposed = False
  344. Private Sub Command1_Click()
  345. Form2.Show 1, Me
  346. End Sub
  347.